0 PRINT"[147]":POKE53280,0:POKE53281,0:POKE646,1:PRINTTAB(12)"SERIES SEQUENCE"
1 REM COMMODARES PROBLEM #35-2:
2 REM     SERIES SEQUENCE
3 REM SOLUTION BY
4 REM     KEITH KUSHNER
5 REM
10 Y=7:X=INT(Y/2)+1:Z=2^Y-1:FORT=0TOZ:B$="":W=0:C=T:FORV=1TOY:B=C:B=B/2:C=INT(B)
20 C$=STR$(B>C):B$=RIGHT$(C$,1)+B$:W=W-(B>C):NEXTV:ON-(W=X)GOSUB30:NEXTT:END
30 W=0:FORU=1TOY:Q=VAL(MID$(B$,U,1)):PRINTCHR$(-(W<X)*(76+11*Q));:W=W+Q:NEXTU:PRINT:RETURN